home *** CD-ROM | disk | FTP | other *** search
/ Mac Expert 2 / Mac_Expert_2.iso / Applications / Fontographer® 4.0.2 / Disk 2 / PC Font Access / PC Font Access.rsrc / STR#_7012.txt < prev    next >
Text File  |  1993-06-17  |  448b  |  19 lines
  1. {Samp( )stringwidth pop 2 div _RMoveX}forall
  2.  
  3. [288 216 144 96 72 60 48 36 28 24 20 18 16 14 12 11 10 9 8 7 6 5 4]
  4.  
  5. {showpage _DoPageHeader}if pop end}B
  6.  
  7. _curl _SetLeading currentpoint _botm le
  8.  
  9. _curl ^E 1.5 mul mul add neg _RMoveY
  10.  
  11. /_NextLine{WrapDict begin _leftm _MoveX _leading 1 ^E sub mul
  12.  
  13. /Samp{/|______TestFont findfont exch _SaveScaleFont setfont ^F _WrapShow}def
  14.  
  15. /_SaveScaleFont{dup /_curl xdf scalefont}B
  16.  
  17. 300 _SetLeading _DoPageHeader
  18.  
  19.